home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / Wheel_18_mainwheel.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  652 b   |  22 lines
  1. on mouseDown
  2.   global glinevar
  3.   if the mouseLine <> -1 then
  4.     set glinevar to the mouseLine
  5.     if the number of chars in line glinevar of field "mainwheel" < 1 then
  6.       hilite char 1 of field "mainwheel"
  7.       set glinevar to 0
  8.       put EMPTY into field "tblwheel,W_BEARBORE"
  9.       put EMPTY into field "tblwheel,W_BORE_LB"
  10.       put EMPTY into field "tblwheel,WH_HUB"
  11.       put EMPTY into field "tblwheel,SP_BUSHBOR"
  12.       put EMPTY into field "tblwheel,SP_BUSHLN"
  13.       put EMPTY into field "tblwheel,WT"
  14.       updateStage()
  15.       abort()
  16.     end if
  17.     hilite line glinevar of field "mainwheel"
  18.     updateStage()
  19.     WHEELVIEW()
  20.   end if
  21. end
  22.